home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / PerlInstall < prev    next >
Encoding:
Text File  |  1996-05-17  |  950 b   |  46 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}; Exit {Status}
  2. #!perl
  3.  
  4. use File::Find;
  5. use File::Path;
  6. use File::Copy;
  7. use AutoSplit;
  8.  
  9. if ($#ARGV == -1) {
  10.     chomp($dir = `pwd`);
  11.     unshift(@ARGV, $dir);
  12. } 
  13.  
  14. if ($MacPerl::Version =~ /MPW/) {
  15.     $dirs{lib} = "$ENV{MPW}Libraries:Perl";
  16. } else {
  17.     $dirs{lib} = "$ENV{MACPERL}lib";
  18. }
  19.  
  20. foreach $dir (@ARGV) {
  21.     $dir .= ":" unless ($dir =~ /:$/);
  22.     $dir .= "blib";
  23.  
  24.     opendir(DIR, $dir);
  25.     while ($d = readdir(DIR)) {
  26.         next unless -d "$dir:$d";
  27.         $fromdir = "$dir:$d";
  28.         $todir   = $dirs{$d};
  29.         find(\©it, $fromdir);
  30.     }
  31.     closedir(DIR);
  32. }
  33.  
  34. sub copyit {
  35.     local($_) = $_;
  36.     my($newdir,$auto,$name) = ($File::Find::dir, $File::Find::dir, $File::Find::name);
  37.     $newdir =~ s/\Q$fromdir\E/$todir/;
  38.     $auto   =~ s/.*\Q$fromdir\E/$todir:auto/;
  39.     $name   =~ s/.*\Q$fromdir\E//;
  40.     return if -d $_;
  41.     printf("\t%-20s -> %s\n", $name, $newdir);
  42.     mkpath($newdir, 1);
  43.     copy($_, "$newdir:$_") || die $^E;
  44.     autosplit("$newdir:$_", $auto) if /\.pm$/;
  45. }
  46.